home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
cmpnew
/
cmpcall.c
< prev
next >
Wrap
C/C++ Source or Header
|
1987-06-04
|
21KB
|
901 lines
/* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
#include <cmpinclude.h>
#include "cmpcall.h"
init_cmpcall(start,size,data)char *start;int size;object data;
{ register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
(void)(putprop(VV[0],VV[1],VV[2]));
(void)(putprop(VV[3],VV[4],VV[2]));
(void)(putprop(VV[5],VV[6],VV[2]));
MF(VV[52],L4,start,size,data);
MF(VV[1],L5,start,size,data);
MF(VV[4],L6,start,size,data);
MF(VV[6],L7,start,size,data);
(void)(putprop(VV[42],VV[43],VV[44]));
MF(VV[43],L9,start,size,data);
MF(VV[53],L10,start,size,data);
MF(VV[54],L11,start,size,data);
MF(VV[55],L12,start,size,data);
MF(VV[56],L13,start,size,data);
vs_top=vs_base=base;
}
/* function definition for C1FUNOB */
static L4()
{ register object *base=vs_base;
register object *sup=base+VM3;
vs_reserve(VM3);
bds_check;
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Cnil;
if(type_of(base[0])==t_cons){
goto T7;}
base[2]= Cnil;
goto T6;
T7:;
if(car(base[0])==VV[7]){
goto T11;}
base[3]= Cnil;
goto T10;
T11:;
if(((endp(cdr(base[0]))?Ct:Cnil))==Cnil){
goto T13;}
base[3]= Cnil;
goto T10;
T13:;
if(endp(cddr(base[0]))){
goto T15;}
base[3]= Cnil;
goto T10;
T15:;
if(type_of(cadr(base[0]))==t_cons){
goto T19;}
base[4]= Cnil;
goto T18;
T19:;
if(((endp(cdadr(base[0]))?Ct:Cnil))==Cnil){
goto T21;}
base[4]= Cnil;
goto T18;
T21:;
if(caadr(base[0])==VV[8]){
goto T23;}
base[4]= Cnil;
goto T18;
T23:;
bds_bind(VV[9],Cnil);
bds_bind(VV[10],Cnil);
bds_bind(VV[11],Cnil);
bds_bind(VV[12],Cnil);
base[10]= cdadr(base[0]);
base[9]= simple_symlispcall_no_event(VV[57],base+10,1);
base[4]= list(3,VV[3],cadr(base[9]),base[9]);
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
T18:;
if(base[4]==Cnil)goto T17;
base[3]= base[4];
goto T10;
T17:;
if(type_of(cadr(base[0]))==t_symbol){
goto T27;}
base[3]= Cnil;
goto T10;
T27:;
base[6]= cadr(base[0]);
base[1]= simple_symlispcall_no_event(VV[58],base+6,1);
if((base[1])!=Cnil){
goto T31;}
base[5]= Cnil;
goto T30;
T31:;
if(car(base[1])==VV[13]){
goto T35;}
base[5]= Cnil;
goto T30;
T35:;
base[5]= base[1];
T30:;
if(base[5]==Cnil)goto T29;
base[3]= base[5];
goto T10;
T29:;
base[7]= VV[14];
base[9]= get(cadr(base[0]),VV[15],Cnil);
base[8]= (base[9]==Cnil?Ct:Cnil);
base[6]= simple_symlispcall_no_event(VV[59],base+7,2);
base[3]= list(3,VV[5],base[6],cadr(base[0]));
T10:;
if(base[3]==Cnil)goto T9;
base[2]= base[3];
goto T6;
T9:;
if(car(base[0])==VV[16]){
goto T41;}
base[2]= Cnil;
goto T6;
T41:;
if(((endp(cdr(base[0]))?Ct:Cnil))==Cnil){
goto T43;}
base[2]= Cnil;
goto T6;
T43:;
if(endp(cddr(base[0]))){
goto T45;}
base[2]= Cnil;
goto T6;
T45:;
if(type_of(cadr(base[0]))==t_cons){
goto T49;}
base[4]= Cnil;
goto T48;
T49:;
if(caadr(base[0])==VV[8]){
goto T51;}
base[4]= Cnil;
goto T48;
T51:;
if(((endp(cdadr(base[0]))?Ct:Cnil))==Cnil){
goto T53;}
base[4]= Cnil;
goto T48;
T53:;
base[6]= cdadr(base[0]);
base[5]= simple_symlispcall_no_event(VV[57],base+6,1);
base[4]= list(3,VV[3],cadr(base[5]),base[5]);
T48:;
if(base[4]==Cnil)goto T47;
base[2]= base[4];
goto T6;
T47:;
if(type_of(cadr(base[0]))==t_symbol){
goto T57;}
base[2]= Cnil;
goto T6;
T57:;
base[6]= cadr(base[0]);
base[1]= simple_symlispcall_no_event(VV[58],base+6,1);
if((base[1])!=Cnil){
goto T61;}
base[5]= Cnil;
goto T60;
T61:;
if(car(base[1])==VV[13]){
goto T65;}
base[5]= Cnil;
goto T60;
T65:;
base[5]= base[1];
T60:;
if(base[5]==Cnil)goto T59;
base[2]= base[5];
goto T6;
T59:;
base[7]= VV[14];
base[9]= get(cadr(base[0]),VV[15],Cnil);
base[8]= (base[9]==Cnil?Ct:Cnil);
base[6]= simple_symlispcall_no_event(VV[59],base+7,2);
base[2]= list(3,VV[5],base[6],cadr(base[0]));
T6:;
if(base[2]==Cnil)goto T5;
vs_top=(vs_base=base+2)+1;
return;
T5:;
base[5]= base[0];
base[3]= simple_symlispcall_no_event(VV[60],base+5,1);
base[5]= VV[14];
base[6]= Ct;
base[4]= simple_symlispcall_no_event(VV[59],base+5,2);
base[5]= base[4];
base[6]= cadr(base[3]);
(void)simple_symlispcall_no_event(VV[61],base+5,2);
base[5]= list(3,VV[17],base[4],base[3]);
vs_top=(vs_base=base+5)+1;
return;
}
/* function definition for C2FUNCALL */
static L5()
{ register object *base=vs_base;
register object *sup=base+VM4;
vs_reserve(VM4);
bds_check;
if(vs_top-vs_base<2) too_few_arguments();
if(vs_top-vs_base>3) too_many_arguments();
vs_base=vs_base+2;
if(vs_base>=vs_top){vs_top=sup;goto T79;}
vs_top=sup;
goto T80;
T79:;
base[2]= Cnil;
T80:;
{object V1= car(base[0]);
if((V1!= VV[5]))goto T82;
base[3]= caddr(base[0]);
base[4]= base[1];
base[5]= base[2];
base[6]= Ct;
vs_top=(vs_base=base+3)+4;
L7();
return;
T82:;
if((V1!= VV[13]))goto T87;
base[3]= cddr(base[0]);
base[4]= base[1];
symlispcall_no_event(VV[62],base+3,2);
return;
T87:;
if((V1!= VV[3]))goto T90;
base[3]= caddr(base[0]);
base[4]= base[1];
vs_top=(vs_base=base+3)+2;
L6();
return;
T90:;
if((V1!= VV[17]))goto T93;
{object V2;
base[3]= symbol_value(VV[18]);
V2= caddr(base[0]);
bds_bind(VV[18],base[3]);
if((base[2])!=Cnil){
goto T96;}
if(type_of(base[1])==t_cons||base[1]==Cnil){
goto T99;}
(void)simple_symlispcall_no_event(VV[63],base+4,0);
T99:;
if(!(car((V2))==VV[19])){
goto T103;}
base[2]= caddr((V2));
goto T96;
T103:;
if(!(car((V2))==VV[20])){
goto T107;}
base[4]= caaddr((V2));
base[5]= base[1];
if((simple_symlispcall_no_event(VV[64],base+4,2))!=Cnil){
goto T107;}
base[2]= make_cons(VV[20],caddr((V2)));
goto T96;
T107:;
base[4]= simple_symlispcall_no_event(VV[65],base+5,0);
base[2]= list(2,VV[21],base[4]);
bds_bind(VV[22],base[2]);
base[5]= caddr(base[0]);
base[6]= simple_symlispcall_no_event(VV[66],base+5,1);
bds_unwind1;
T96:;
base[4]= base[1];
vs_top=(vs_base=base+4)+1;
L11();
vs_top=sup;
if((symbol_value(VV[23]))==Cnil){
goto T122;}
princ_str("\n super_funcall(",VV[24]);
base[4]= base[2];
(void)simple_symlispcall_no_event(VV[67],base+4,1);
princ_str(");",VV[24]);
goto T120;
T122:;
princ_str("\n super_funcall_no_event(",VV[24]);
base[4]= base[2];
(void)simple_symlispcall_no_event(VV[67],base+4,1);
princ_str(");",VV[24]);
T120:;
base[4]= VV[25];
symlispcall_no_event(VV[68],base+4,1);
bds_unwind1;
return;}
T93:;
symlispcall_no_event(VV[63],base+3,0);
return;}
}
/* function definition for C2CALL-LAMBDA */
static L6()
{ register object *base=vs_base;
register object *sup=base+VM5;
vs_reserve(VM5);
bds_check;
check_arg(2);
vs_top=sup;
TTL:;
{object V3;
V3= caddr(base[0]);
if((cadr((V3)))!=Cnil){
goto T134;}
if((caddr((V3)))!=Cnil){
goto T134;}
if((cadddr((V3)))!=Cnil){
goto T134;}
if(type_of(base[1])==t_cons||base[1]==Cnil){
goto T135;}
T134:;
if(!(type_of(base[1])==t_cons||base[1]==Cnil)){
goto T143;}
base[3]= symbol_value(VV[18]);
bds_bind(VV[18],symbol_value(VV[18]));
base[4]= base[1];
vs_top=(vs_base=base+4)+1;
L12();
vs_top=sup;
base[4]= (V3);
if((simple_symlispcall_no_event(VV[69],base+4,1))==Cnil){
bds_unwind1;
goto T143;}
princ_str("\n vs_top=(vs_base=base+",VV[24]);
base[4]= base[3];
(void)simple_symlispcall_no_event(VV[67],base+4,1);
princ_str(")+",VV[24]);
base[4]= number_minus((VV[18]->s.s_dbind),base[3]);
(void)simple_symlispcall_no_event(VV[67],base+4,1);
princ_char(59,VV[24]);
setq(VV[26],Ct);
bds_unwind1;
T143:;
base[2]= (V3);
base[3]= caddr(cddr(base[0]));
symlispcall_no_event(VV[70],base+2,2);
return;
T135:;
base[2]= car((V3));
base[3]= base[1];
base[4]= caddr(cddr(base[0]));
symlispcall_no_event(VV[71],base+2,3);
return;}
}
/* function definition for C2CALL-GLOBAL */
static L7()
{ register object *base=vs_base;
register object *sup=base+VM6;
vs_reserve(VM6);
bds_check;
check_arg(4);
vs_top=sup;
TTL:;
base[4]= Cnil;
bds_bind(VV[18],symbol_value(VV[18]));
base[6]= base[0];
if((simple_symlispcall_no_event(VV[72],base+6,1))==Cnil){
goto T167;}
if(!(type_of(base[1])==t_cons||base[1]==Cnil)){
goto T171;}
if((symbol_value(VV[27]))==Cnil){
goto T171;}
if((symbol_value(VV[28]))==Cnil){
goto T171;}
if(!(car(symbol_value(VV[28]))==base[0])){
goto T171;}
{object x= symbol_value(VV[29]),V4= VV[30];
while(!endp(V4))
if(eql(x,V4->c.c_car)){
goto T181;
}else V4=V4->c.c_cdr;
goto T171;}
T181:;
if((simple_symlispcall_no_event(VV[73],base+6,0))==Cnil){
goto T171;}
if(!((length(base[1]))==(length(cdr(symbol_value(VV[28])))))){
goto T171;}
bds_bind(VV[22],VV[31]);
setq(VV[32],number_plus(symbol_value(VV[32]),VV[33]));
bds_bind(VV[29],make_cons(symbol_value(VV[32]),Cnil));
bds_bind(VV[34],make_cons((VV[29]->s.s_dbind),symbol_value(VV[34])));
base[9]=symbol_function(VV[74]);
{object V5;
object V6= cdr(symbol_value(VV[28]));
if(endp(V6)){
base[10]= Cnil;
goto T190;}
base[11]=V5=MMcons(Cnil,Cnil);
T191:;
(V5->c.c_car)= list(2,(V6->c.c_car),Cnil);
if(endp(V6=MMcdr(V6))){
base[10]= base[11];
goto T190;}
V5=MMcdr(V5)=MMcons(Cnil,Cnil);
goto T191;}
T190:;
base[11]= base[1];
(void)simple_lispcall_no_event(base+9,2);
if((cdr((VV[29]->s.s_dbind)))==Cnil){
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T185;}
princ_str("\nT",VV[24]);
base[9]= car((VV[29]->s.s_dbind));
(void)simple_symlispcall_no_event(VV[67],base+9,1);
princ_str(":;",VV[24]);
bds_unwind1;
bds_unwind1;
bds_unwind1;
T185:;
base[6]= VV[35];
(void)simple_symlispcall_no_event(VV[75],base+6,1);
princ_str("\n goto TTL;",VV[24]);
base[6]= VV[36];
base[7]= base[0];
symlispcall_no_event(VV[76],base+6,2);
bds_unwind1;
return;
T171:;
if(!(type_of(base[1])==t_cons||base[1]==Cnil)){
goto T207;}
if((base[2])!=Cnil){
goto T207;}
base[6]= base[0];
base[7]= base[1];
base[8]= base[3];
base[4]= simple_symlispcall_no_event(VV[77],base+6,3);
if((base[4])==Cnil){
goto T207;}
bds_bind(VV[37],VV[38]);
base[7]=symbol_function(VV[68]);
base[9]= base[4];
base[10]= base[1];
base[8]= simple_symlispcall_no_event(VV[78],base+9,2);
(void)simple_lispcall_no_event(base+7,1);
symlispcall_no_event(VV[79],base+7,0);
bds_unwind1;
bds_unwind1;
return;
T207:;
base[6]= get(base[0],VV[39],Cnil);
if(base[6]==Cnil)goto T225;
base[4]= base[6];
goto T224;
T225:;
base[4]= get(base[0],VV[40],Cnil);
T224:;
if((base[4])==Cnil){
goto T222;}
base[6]= base[1];
vs_top=(vs_base=base+6)+1;
L11();
vs_top=sup;
princ_str("\n ",VV[24]);
base[6]= base[4];
(void)simple_symlispcall_no_event(VV[67],base+6,1);
princ_str("();",VV[24]);
base[6]= VV[25];
symlispcall_no_event(VV[68],base+6,1);
bds_unwind1;
return;
T222:;
{object x= base[0],V7= symbol_value(VV[41]);
while(!endp(V7))
if(eql(x,car(V7->c.c_car))){
base[4]= (V7->c.c_car);
goto T238;
}else V7=V7->c.c_cdr;
base[4]= Cnil;}
T238:;
if((base[4])==Cnil){
goto T236;}
base[6]= base[1];
vs_top=(vs_base=base+6)+1;
L11();
vs_top=sup;
princ_str("\n L",VV[24]);
base[6]= cdr(base[4]);
(void)simple_symlispcall_no_event(VV[67],base+6,1);
princ_str("();",VV[24]);
base[6]= VV[25];
symlispcall_no_event(VV[68],base+6,1);
bds_unwind1;
return;
T236:;
base[6]= base[0];
base[7]= base[1];
base[8]= base[2];
base[9]= Ct;
vs_top=(vs_base=base+6)+4;
L13();
bds_unwind1;
return;
T167:;
base[6]= base[0];
base[7]= base[1];
base[8]= base[2];
base[9]= Cnil;
vs_top=(vs_base=base+6)+4;
L13();
bds_unwind1;
return;
}
/* function definition for WT-SIMPLE-CALL */
static L9()
{ register object *base=vs_base;
register object *sup=base+VM7;
vs_reserve(VM7);
if(vs_top-vs_base<3) too_few_arguments();
if(vs_top-vs_base>4) too_many_arguments();
vs_base=vs_base+3;
if(vs_base>=vs_top){vs_top=sup;goto T255;}
vs_top=sup;
goto T256;
T255:;
base[3]= Cnil;
T256:;
princ_str("simple_",VV[24]);
base[4]= base[0];
(void)simple_symlispcall_no_event(VV[67],base+4,1);
princ_char(40,VV[24]);
if((base[3])==Cnil){
goto T263;}
princ_str("VV[",VV[24]);
base[4]= base[3];
(void)simple_symlispcall_no_event(VV[67],base+4,1);
princ_str("],",VV[24]);
T263:;
princ_str("base+",VV[24]);
base[4]= base[1];
(void)simple_symlispcall_no_event(VV[67],base+4,1);
princ_char(44,VV[24]);
base[4]= base[2];
(void)simple_symlispcall_no_event(VV[67],base+4,1);
princ_char(41,VV[24]);
setq(VV[26],Ct);
base[4]= Ct;
vs_top=(vs_base=base+4)+1;
return;
}
/* function definition for SAVE-FUNOB */
static L10()
{ register object *base=vs_base;
register object *sup=base+VM8;
vs_reserve(VM8);
bds_check;
check_arg(1);
vs_top=sup;
TTL:;
{object V8= car(base[0]);
if((V8!= VV[3])
&& (V8!= VV[80])
&& (V8!= VV[13]))goto T279;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T279:;
if((V8!= VV[5]))goto T280;
base[1]= caddr(base[0]);
if((simple_symlispcall_no_event(VV[72],base+1,1))==Cnil){
goto T281;}
if((get(caddr(base[0]),VV[39],Cnil))!=Cnil){
goto T282;}
if((get(caddr(base[0]),VV[40],Cnil))!=Cnil){
goto T282;}
{object x= caddr(base[0]),V9= symbol_value(VV[41]);
while(!endp(V9))
if(eql(x,car(V9->c.c_car))){
goto T282;
}else V9=V9->c.c_cdr;}
T281:;
base[2]= simple_symlispcall_no_event(VV[65],base+3,0);
base[1]= list(2,VV[21],base[2]);
if((symbol_value(VV[45]))==Cnil){
goto T295;}
princ_str("\n ",VV[24]);
base[2]= base[1];
(void)simple_symlispcall_no_event(VV[67],base+2,1);
princ_str("=symbol_function(VV[",VV[24]);
base[2]=symbol_function(VV[67]);
base[4]= caddr(base[0]);
base[3]= simple_symlispcall_no_event(VV[81],base+4,1);
(void)simple_lispcall_no_event(base+2,1);
princ_str("]);",VV[24]);
goto T293;
T295:;
princ_str("\n ",VV[24]);
base[2]= base[1];
(void)simple_symlispcall_no_event(VV[67],base+2,1);
princ_str("=VV[",VV[24]);
base[2]=symbol_function(VV[67]);
base[4]= caddr(base[0]);
base[3]= simple_symlispcall_no_event(VV[81],base+4,1);
(void)simple_lispcall_no_event(base+2,1);
princ_str("]->s.s_gfdef;",VV[24]);
T293:;
vs_top=(vs_base=base+1)+1;
return;
T282:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T280:;
if((V8!= VV[17]))goto T313;
base[2]= simple_symlispcall_no_event(VV[65],base+3,0);
base[1]= list(2,VV[21],base[2]);
bds_bind(VV[22],base[1]);
base[3]= caddr(base[0]);
(void)simple_symlispcall_no_event(VV[66],base+3,1);
vs_top=(vs_base=base+1)+1;
bds_unwind1;
return;
T313:;
symlispcall_no_event(VV[63],base+1,0);
return;}
}
/* function definition for PUSH-ARGS */
static L11()
{ register object *base=vs_base;
register object *sup=base+VM9;
vs_reserve(VM9);
bds_check;
check_arg(1);
vs_top=sup;
TTL:;
if((base[0])!=Cnil){
goto T319;}
princ_str("\n vs_base=vs_top;",VV[24]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T319:;
if(!(type_of(base[0])==t_cons)){
goto T323;}
base[2]= symbol_value(VV[18]);
bds_bind(VV[18],symbol_value(VV[18]));
{object V10;
object V11;
V10= base[0];
V11= car((V10));
T330:;
if(!(endp((V10)))){
goto T331;}
goto T326;
T331:;
base[4]= simple_symlispcall_no_event(VV[65],base+5,0);
base[3]= list(2,VV[21],base[4]);
bds_bind(VV[22],base[3]);
base[4]= (V11);
base[5]= simple_symlispcall_no_event(VV[66],base+4,1);
bds_unwind1;
V10= cdr((V10));
V11= car((V10));
goto T330;}
T326:;
princ_str("\n vs_top=(vs_base=base+",VV[24]);
base[3]= base[2];
(void)simple_symlispcall_no_event(VV[67],base+3,1);
princ_str(")+",VV[24]);
base[3]= number_minus((VV[18]->s.s_dbind),base[2]);
(void)simple_symlispcall_no_event(VV[67],base+3,1);
princ_char(59,VV[24]);
setq(VV[26],Ct);
base[3]= Ct;
vs_top=(vs_base=base+3)+1;
bds_unwind1;
return;
T323:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for PUSH-ARGS-LISPCALL */
static L12()
{ register object *base=vs_base;
register object *sup=base+VM10;
vs_reserve(VM10);
bds_check;
check_arg(1);
vs_top=sup;
TTL:;
{object V12;
object V13;
V12= base[0];
V13= car((V12));
T356:;
if(!(endp((V12)))){
goto T357;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T357:;
base[2]= simple_symlispcall_no_event(VV[65],base+3,0);
base[1]= list(2,VV[21],base[2]);
bds_bind(VV[22],base[1]);
base[2]= (V13);
base[3]= simple_symlispcall_no_event(VV[66],base+2,1);
bds_unwind1;
V12= cdr((V12));
V13= car((V12));
goto T356;}
}
/* function definition for C2CALL-UNKNOWN-GLOBAL */
static L13()
{ register object *base=vs_base;
register object *sup=base+VM11;
vs_reserve(VM11);
check_arg(4);
vs_top=sup;
TTL:;
if((symbol_value(VV[23]))==Cnil){
goto T371;}
if((base[2])!=Cnil){
goto T373;}
base[4]= simple_symlispcall_no_event(VV[65],base+5,0);
base[2]= list(2,VV[21],base[4]);
princ_str("\n ",VV[24]);
base[4]= base[2];
(void)simple_symlispcall_no_event(VV[67],base+4,1);
princ_str("=symbol_function(VV[",VV[24]);
base[4]=symbol_function(VV[67]);
base[6]= base[0];
base[5]= simple_symlispcall_no_event(VV[81],base+6,1);
(void)simple_lispcall_no_event(base+4,1);
princ_str("]);",VV[24]);
T373:;
base[4]= base[1];
vs_top=(vs_base=base+4)+1;
L11();
vs_top=sup;
princ_str("\n funcall_with_catcher(VV[",VV[24]);
base[4]=symbol_function(VV[67]);
base[6]= base[0];
base[5]= simple_symlispcall_no_event(VV[81],base+6,1);
(void)simple_lispcall_no_event(base+4,1);
princ_str("],",VV[24]);
base[4]= base[2];
(void)simple_symlispcall_no_event(VV[67],base+4,1);
princ_str(");",VV[24]);
base[4]= VV[25];
symlispcall_no_event(VV[68],base+4,1);
return;
T371:;
if((base[2])==Cnil){
goto T400;}
base[4]= base[1];
vs_top=(vs_base=base+4)+1;
L11();
vs_top=sup;
if((base[3])==Cnil){
goto T406;}
if((symbol_value(VV[45]))==Cnil){
goto T409;}
princ_str("\n funcall_no_event(",VV[24]);
base[4]= base[2];
(void)simple_symlispcall_no_event(VV[67],base+4,1);
princ_str(");",VV[24]);
goto T404;
T409:;
princ_str("\n CMPfuncall(",VV[24]);
base[4]= base[2];
(void)simple_symlispcall_no_event(VV[67],base+4,1);
princ_str(");",VV[24]);
goto T404;
T406:;
princ_str("\n funcall(",VV[24]);
base[4]= base[2];
(void)simple_symlispcall_no_event(VV[67],base+4,1);
princ_str(");",VV[24]);
T404:;
base[4]= VV[25];
symlispcall_no_event(VV[68],base+4,1);
return;
T400:;
base[4]= base[1];
if((simple_symlispcall_no_event(VV[82],base+4,1))==Cnil){
goto T425;}
base[4]= symbol_value(VV[18]);
base[5]= simple_symlispcall_no_event(VV[65],base+6,0);
base[2]= list(2,VV[21],base[5]);
if((symbol_value(VV[45]))==Cnil){
goto T433;}
princ_str("\n ",VV[24]);
base[5]= base[2];
(void)simple_symlispcall_no_event(VV[67],base+5,1);
princ_str("=symbol_function(VV[",VV[24]);
base[5]=symbol_function(VV[67]);
base[7]= base[0];
base[6]= simple_symlispcall_no_event(VV[81],base+7,1);
(void)simple_lispcall_no_event(base+5,1);
princ_str("]);",VV[24]);
goto T431;
T433:;
princ_str("\n ",VV[24]);
base[5]= base[2];
(void)simple_symlispcall_no_event(VV[67],base+5,1);
princ_str("=(VV[",VV[24]);
base[5]=symbol_function(VV[67]);
base[7]= base[0];
base[6]= simple_symlispcall_no_event(VV[81],base+7,1);
(void)simple_lispcall_no_event(base+5,1);
princ_str("]->s.s_gfdef);",VV[24]);
T431:;
base[5]= base[1];
vs_top=(vs_base=base+5)+1;
L12();
vs_top=sup;
if(symbol_value(VV[22])==VV[46]){
goto T453;}
if(!(symbol_value(VV[22])==VV[47])){
goto T454;}
T453:;
princ_str("\n lispcall",VV[24]);
if((base[3])==Cnil){
goto T460;}
princ_str("_no_event",VV[24]);
T460:;
princ_str("(base+",VV[24]);
base[5]= base[4];
(void)simple_symlispcall_no_event(VV[67],base+5,1);
princ_char(44,VV[24]);
base[5]= make_fixnum(length(base[1]));
(void)simple_symlispcall_no_event(VV[67],base+5,1);
princ_str(");",VV[24]);
setq(VV[26],Ct);
base[5]= VV[25];
symlispcall_no_event(VV[68],base+5,1);
return;
T454:;
if((base[3])==Cnil){
goto T478;}
base[6]= VV[48];
goto T476;
T478:;
base[6]= VV[49];
T476:;
base[7]= make_fixnum(length(base[1]));
base[5]= list(4,VV[42],base[6],base[4],base[7]);
symlispcall_no_event(VV[68],base+5,1);
return;
T425:;
base[4]= symbol_value(VV[18]);
base[5]= base[1];
vs_top=(vs_base=base+5)+1;
L12();
vs_top=sup;
if(symbol_value(VV[22])==VV[46]){
goto T482;}
if(!(symbol_value(VV[22])==VV[47])){
goto T483;}
T482:;
princ_str("\n symlispcall",VV[24]);
if((base[3])==Cnil){
goto T489;}
princ_str("_no_event",VV[24]);
T489:;
princ_str("(VV[",VV[24]);
base[5]=symbol_function(VV[67]);
base[7]= base[0];
base[6]= simple_symlispcall_no_event(VV[81],base+7,1);
(void)simple_lispcall_no_event(base+5,1);
princ_str("],base+",VV[24]);
base[5]= base[4];
(void)simple_symlispcall_no_event(VV[67],base+5,1);
princ_char(44,VV[24]);
base[5]= make_fixnum(length(base[1]));
(void)simple_symlispcall_no_event(VV[67],base+5,1);
princ_str(");",VV[24]);
setq(VV[26],Ct);
base[5]= VV[25];
symlispcall_no_event(VV[68],base+5,1);
return;
T483:;
if((base[3])==Cnil){
goto T511;}
base[6]= VV[50];
goto T509;
T511:;
base[6]= VV[51];
T509:;
base[7]= make_fixnum(length(base[1]));
base[9]= base[0];
base[8]= simple_symlispcall_no_event(VV[81],base+9,1);
base[5]= list(5,VV[42],base[6],base[4],base[7],base[8]);
symlispcall_no_event(VV[68],base+5,1);
return;
}